﻿Imports Microsoft.Reporting.WinForms

Public Class RptInventarioFacturacion

    Public Shared Sub RptColor(ByRef rv As ReportViewer)
        Dim dt As New DataTable
        dt = GBDZafiro.Color.ConsultarAll
        Dim rdsColor = New ReportDataSource()
        rdsColor.Value = dt
        rdsColor.Name = "Color"
        rv.LocalReport.ReportEmbeddedResource = "Zafiro_SIF.RptColor.rdlc"
        rv.LocalReport.DataSources.Clear()
        rv.LocalReport.DataSources.Add(rdsColor)
        rv.LocalReport.Refresh()
    End Sub

    Public Shared Sub RptProducto(ByRef rv As ReportViewer, ByRef dtInvProd As DataTable)
        Dim dtEmpresa As DataTable
        dtEmpresa = GBDZafiro.Empresa.ConsxPrimEmp

        Dim rdsInvProd = New ReportDataSource()

        Dim oParametros = New List(Of ReportParameter)
        oParametros.Add(New ReportParameter("Usuario", Login.usuario.codUsuario))
        oParametros.Add(New ReportParameter("Fecha", "[ " + FormatDateTime(Now, DateFormat.ShortDate) + " ]"))
        For Each rEmpresa As DataRow In dtEmpresa.Rows
            oParametros.Add(New ReportParameter("RAZON_SOCIAL", rEmpresa("RAZON_SOCIAL").ToString))
            oParametros.Add(New ReportParameter("NIT", rEmpresa("NIT").ToString))
            oParametros.Add(New ReportParameter("DIRECCION", rEmpresa("DIRECCION").ToString))
            oParametros.Add(New ReportParameter("TELEFONO", rEmpresa("TELEFONO").ToString))
        Next

        rdsInvProd.Value = dtInvProd
        rdsInvProd.Name = "INVPROD"

        rv.LocalReport.ReportEmbeddedResource = "Zafiro_SIF.RptProductos.rdlc"
        rv.LocalReport.DataSources.Clear()
        rv.LocalReport.SetParameters(oParametros)
        rv.LocalReport.DataSources.Add(rdsInvProd)
        rv.LocalReport.Refresh()
    End Sub

    Public Shared Sub RptEquiva(ByRef rv As ReportViewer)
        Dim dtEmpresa, dtEqui As DataTable
        dtEmpresa = GBDZafiro.Empresa.ConsxPrimEmp
        dtEqui = GBDZafiro.Equivalencia.ConsultarAll()

        Dim rdsEqui = New ReportDataSource()

        Dim oParametros = New List(Of ReportParameter)
        For Each rEmpresa As DataRow In dtEmpresa.Rows
            oParametros.Add(New ReportParameter("RAZON_SOCIAL", rEmpresa("RAZON_SOCIAL").ToString))
            oParametros.Add(New ReportParameter("NIT", rEmpresa("NIT").ToString))
        Next

        rdsEqui.Value = dtEqui
        rdsEqui.Name = "CONSULEQUIVALENCIA"

        rv.LocalReport.ReportEmbeddedResource = "Zafiro_SIF.RptEquivalencia.rdlc"
        rv.LocalReport.DataSources.Clear()
        rv.LocalReport.SetParameters(oParametros)
        rv.LocalReport.DataSources.Add(rdsEqui)
        rv.LocalReport.Refresh()
    End Sub

    Public Shared Sub RptTraslado(ByRef rv As ReportViewer, ByRef NUM_TRASLADO As String, _
                                  Optional ByRef dtTraslado As DataTable = Nothing, _
                                  Optional ByRef FECHA As String = Nothing, _
                                  Optional ByRef usuario As GBDZafiro.Usuario = Nothing)

        Dim dtEmpresa As DataTable
        dtEmpresa = GBDZafiro.Empresa.ConsxPrimEmp

        Dim rdsTraslado = New ReportDataSource()

        Dim oParametros = New List(Of ReportParameter)
        For Each rEmpresa As DataRow In dtEmpresa.Rows
            oParametros.Add(New ReportParameter("RAZON_SOCIAL", rEmpresa("RAZON_SOCIAL").ToString))
            oParametros.Add(New ReportParameter("NIT", rEmpresa("NIT").ToString))
        Next
        oParametros.Add(New ReportParameter("USUARIO", usuario.nomUsuario))
        oParametros.Add(New ReportParameter("NUM_TRASLADO", NUM_TRASLADO))
        oParametros.Add(New ReportParameter("FECHA", FECHA))

        rdsTraslado.Value = dtTraslado
        rdsTraslado.Name = "CONSULTRASLADO"

        rv.LocalReport.ReportEmbeddedResource = "Zafiro_SIF.RptTraslado.rdlc"
        rv.LocalReport.DataSources.Clear()
        rv.LocalReport.SetParameters(oParametros)
        rv.LocalReport.DataSources.Add(rdsTraslado)
        rv.LocalReport.Refresh()

    End Sub

    Public Shared Sub RptTrasladoBga(ByRef rv As ReportViewer, ByRef NUM_TRASLADO As String, _
                                  Optional ByRef dtTraslado As DataTable = Nothing, _
                                  Optional ByRef FECHA As String = Nothing, _
                                  Optional ByRef usuario As GBDZafiro.Usuario = Nothing)
        Dim dtEmpresa As DataTable
        dtEmpresa = GBDZafiro.Empresa.ConsxPrimEmp

        Dim rdsTraslado = New ReportDataSource()

        Dim oParametros = New List(Of ReportParameter)
        For Each rEmpresa As DataRow In dtEmpresa.Rows
            oParametros.Add(New ReportParameter("RAZON_SOCIAL", rEmpresa("RAZON_SOCIAL").ToString))
            oParametros.Add(New ReportParameter("NIT", rEmpresa("NIT").ToString))
        Next
        oParametros.Add(New ReportParameter("USUARIO", usuario.nomUsuario))
        oParametros.Add(New ReportParameter("NUM_TRASLADO", NUM_TRASLADO))
        oParametros.Add(New ReportParameter("FECHA", FECHA))

        rdsTraslado.Value = dtTraslado
        rdsTraslado.Name = "CONSULTRASLADOBGA"

        rv.LocalReport.ReportEmbeddedResource = "Zafiro_SIF.RptTrasladoBga.rdlc"
        rv.LocalReport.DataSources.Clear()
        rv.LocalReport.SetParameters(oParametros)
        rv.LocalReport.DataSources.Add(rdsTraslado)
        rv.LocalReport.Refresh()

    End Sub

End Class
